home *** CD-ROM | disk | FTP | other *** search
/ The Fatted Calf / The Fatted Calf.iso / Applications / Games / NeXTmille / Source / cheap_strings.psw < prev    next >
Text File  |  1990-10-26  |  1KB  |  55 lines
  1. /* These routines draw strings into boxed areas.
  2. **    The strings are drawn as such that they are displayed centered justified within
  3. **    the box.
  4. **
  5. */
  6.  
  7.  
  8. defineps draw_string( float box[4], font_color, point_size; char *theString )
  9.     
  10.     /Times-Roman findfont point_size scalefont setfont
  11.      
  12.     (theString) stringwidth                        % Calculate the width and height of the string
  13.     /ywidth exch def                             %    and save.
  14.     /xwidth exch def
  15.     
  16.     \box[2] xwidth sub 2 div \box[0] add        % Calculate the X position to display the
  17.                                                 %    string.
  18.  
  19.     \box[3] ywidth sub 2 div \box[1] add        % Calculate the Y position to display the
  20.                                                 %    string
  21.     
  22.     moveto                                        % Position the string
  23.     
  24.     font_color setgray                            % Display the string
  25.     (theString) show
  26.     
  27. endps
  28.  
  29.  
  30. defineps draw_int( float box[4], font_color, point_size; int theInt )
  31.  
  32.     /Times-Roman findfont point_size scalefont setfont
  33.     
  34.     /theString 20 string def                    % Convert the int to a string for later display
  35.     /theString theInt theString cvs def
  36.     
  37.     theString stringwidth                        % Calculate the width and height of the string
  38.     /ywidth exch def                             %    and save.
  39.     /xwidth exch def
  40.     
  41.     \box[2] xwidth sub 2 div \box[0] add        % Calculate the X position to display the
  42.                                                 %    string.
  43.     
  44.     \box[3] ywidth sub 2 div \box[1] add        % Calculate the Y position to display the
  45.                                                 %    string
  46.     
  47.     moveto                                        % Position the string
  48.     
  49.     font_color setgray                            % Display the string
  50.     theString show
  51.     
  52. endps
  53.  
  54.  
  55.